home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #51 (Dec 89) / LISP sources / listing 05 < prev    next >
Text File  |  1988-10-23  |  443b  |  21 lines
  1. Welcome to Allegro CL Version 1.2!
  2. ? 
  3. HANOI
  4. MOVEDISK
  5. ? 
  6. TOWEROFHANOI
  7. NIL
  8. EXIST
  9. > Error: Cannot object-bind global function HANOI
  10. > While executing: FHAVE
  11. > Type Command-/ to continue, Command-. to abort.
  12. 1 > Continuing...
  13. ? (setf toh (oneOf towerOfHanoi))
  14. #<Object #248, a TOWEROFHANOI>
  15. ? (ask toh (Hanoi))
  16. > Error: TOH is not a valid argument to NIL .
  17. > While executing: HANOI
  18. > Type Command-/ to continue, Command-. to abort.
  19. 1 > 
  20. Aborted
  21. ?